home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 April / Ahoy_Magazine_85-04_1985_Double_L.d64 / faster 64 basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  102 lines
  1. 100 rem anthony wood
  2. 110 rem 12739 grand cross ln
  3. 120 rem houston, tx 77072
  4. 130 rem
  5. 140 print"[147]":poke53280,0:poke 53281,6:printtab(13);"faster 64"
  6. 150 q$=chr$(34)
  7. 160 printtab(14);"creator":print
  8. 170 print:print"(c) 1984  anthony wood"
  9. 180 print:print"do you wish to r[146]un me"
  10. 190 print"or put me on d[146]isk as a"
  11. 200 print"'load ,8,1' file?"
  12. 210 geta$:ifa$=""then210
  13. 220 ifa$="d"then320
  14. 230 ifa$="r"then250
  15. 240 goto210
  16. 250 print:print:print"ok.. i'm loading into memory."
  17. 260 print"(i load $c000 to $c242)
  18. 270 ck[178]0:p[178]49152
  19. 280 [135]d:[139]d[179]256[167][151]p,d:ck[178]ck[170]d:p[178]p[170]1:[137]280
  20. 290 [139]d[179][177]ck[167][153]"** data error ** please check your data statments.":[128]
  21. 300 [153]"finished. to initilize faster 64"
  22. 310 [153]"after a runstop/restore,":[153]"enter 'sys49152'":[158]49152:[128]
  23. 320 [153]:[153]:[153]"i will created the file 'faster' on"
  24. 330 [153]"your disk drive. any previous file"
  25. 340 [153]"of this name will be scratched."
  26. 350 [153]:[153]"press returnwait when the correct disk"
  27. 360 [153]"is in drive 0"
  28. 370 [161]a$:[139]a$[179][177][199](13)[167]370
  29. 380 ck[178]0
  30. 390 [159]15,8,15,"i0"
  31. 400 [152]15,"s0:faster"
  32. 410 [159]8,8,8,"faster,p,w"
  33. 420 [132]15,e,er$,a,a:[139]e[179][177]0[167][153]er$:[160]15:[128]
  34. 430 [152]8,[199](0);[199](192);
  35. 440 [135]d:[139]d[179]256[167][152]8,[199](d);:ck[178]ck[170]d:[137]440
  36. 450 [160]8:[132]15,e,er$,a,a:[139]e[179][177]0[167][153]er$:[160]15:[128]
  37. 460 [160]15
  38. 470 [139]ck[179][177]d[167][153]"** data error ** please check your data statments.":[128]
  39. 480 [153]:[153]"ok. file created. to run the program,"
  40. 490 [153]"enter: load";q$;"faster";q$;",8,1"
  41. 500 [153]"then enter sys49152 to initilize it."
  42. 510 [128]
  43. 520 [131] 120, 169, 0, 133, 252, 162, 160, 134, 253, 160
  44. 530 [131] 0, 162, 0, 157, 67, 194, 157, 67, 195, 157
  45. 540 [131] 67, 196, 157, 67, 197, 157, 67, 198, 232, 208
  46. 550 [131] 238, 177, 252, 145, 252, 230, 252, 208, 2, 230
  47. 560 [131] 253, 165, 253, 201, 192, 208, 240, 165, 1, 41
  48. 570 [131] 254, 133, 1, 88, 162, 76, 142, 139, 176, 162
  49. 580 [131] 121, 142, 140, 176, 162, 192, 142, 141, 176, 162
  50. 590 [131] 202, 142, 85, 168, 162, 192, 142, 86, 168, 162
  51. 600 [131] 240, 142, 229, 176, 162, 193, 142, 230, 176, 162
  52. 610 [131] 76, 142, 227, 177, 162, 248, 142, 228, 177, 162
  53. 620 [131] 193, 142, 229, 177, 160, 0, 185, 13, 194, 201
  54. 630 [131] 0, 208, 1, 96, 32, 210, 255, 200, 76, 106
  55. 640 [131] 192, 162, 0, 142, 7, 194, 32, 121, 0, 32
  56. 650 [131] 144, 176, 72, 152, 72, 162, 0, 189, 67, 194
  57. 660 [131] 240, 37, 189, 67, 194, 197, 69, 208, 26, 189
  58. 670 [131] 67, 195, 197, 70, 208, 19, 189, 67, 198, 205
  59. 680 [131] 7, 194, 208, 11, 254, 67, 196, 208, 29, 254
  60. 690 [131] 67, 197, 76, 198, 192, 232, 76, 137, 192, 165
  61. 700 [131] 69, 157, 67, 194, 165, 70, 157, 67, 195, 254
  62. 710 [131] 67, 196, 173, 7, 194, 157, 67, 198, 104, 168
  63. 720 [131] 104, 96, 169, 13, 32, 210, 255, 162, 0, 142
  64. 730 [131] 7, 194, 160, 0, 185, 68, 194, 240, 122, 185
  65. 740 [131] 68, 197, 217, 67, 197, 240, 5, 176, 13, 76
  66. 750 [131] 81, 193, 185, 68, 196, 217, 67, 196, 144, 97
  67. 760 [131] 240, 95, 169, 1, 141, 7, 194, 185, 67, 194
  68. 770 [131] 141, 8, 194, 185, 67, 195, 141, 9, 194, 185
  69. 780 [131] 67, 196, 141, 10, 194, 185, 67, 197, 141, 11
  70. 790 [131] 194, 185, 67, 198, 141, 12, 194, 185, 68, 194
  71. 800 [131] 153, 67, 194, 185, 68, 195, 153, 67, 195, 185
  72. 810 [131] 68, 196, 153, 67, 196, 185, 68, 197, 153, 67
  73. 820 [131] 197, 185, 68, 198, 153, 67, 198, 173, 8, 194
  74. 830 [131] 153, 68, 194, 173, 9, 194, 153, 68, 195, 173
  75. 840 [131] 10, 194, 153, 68, 196, 173, 11, 194, 153, 68
  76. 850 [131] 197, 173, 12, 194, 153, 68, 198, 200, 76, 214
  77. 860 [131] 192, 174, 7, 194, 240, 3, 76, 207, 192, 160
  78. 870 [131] 0, 140, 6, 194, 56, 32, 240, 255, 152, 172
  79. 880 [131] 6, 194, 201, 30, 144, 5, 169, 13, 32, 210
  80. 890 [131] 255, 185, 67, 194, 240, 90, 41, 127, 32, 210
  81. 900 [131] 255, 185, 67, 195, 41, 127, 32, 210, 255, 185
  82. 910 [131] 67, 195, 41, 128, 240, 20, 185, 67, 194, 41
  83. 920 [131] 128, 240, 8, 169, 37, 32, 210, 255, 76, 160
  84. 930 [131] 193, 169, 36, 32, 210, 255, 185, 67, 198, 240
  85. 940 [131] 10, 169, 40, 32, 210, 255, 169, 41, 32, 210
  86. 950 [131] 255, 169, 32, 32, 210, 255, 185, 67, 196, 170
  87. 960 [131] 185, 67, 197, 140, 6, 194, 32, 205, 189, 172
  88. 970 [131] 6, 194, 169, 32, 32, 210, 255, 169, 44, 32
  89. 980 [131] 210, 255, 200, 76, 95, 193, 169, 20, 32, 210
  90. 990 [131] 255, 169, 0, 162, 0, 157, 67, 194, 157, 67
  91. 1000 [131] 195, 157, 67, 196, 157, 67, 197, 157, 67, 198
  92. 1010 [131] 232, 208, 238, 76, 134, 227, 169, 1, 141, 7
  93. 1020 [131] 194, 76, 209, 177, 173, 7, 194, 72, 32, 178
  94. 1030 [131] 177, 104, 141, 7, 194, 76, 230, 177, 0, 0
  95. 1040 [131] 0, 0, 0, 0, 0, 13, 70, 65, 83, 84
  96. 1050 [131] 69, 82, 32, 54, 52, 32, 87, 79, 82, 75
  97. 1060 [131] 73, 78, 71, 46, 13, 66, 89, 32, 65, 78
  98. 1070 [131] 84, 72, 79, 78, 89, 32, 87, 79, 79, 68
  99. 1080 [131] 13, 72, 79, 85, 83, 84, 79, 78, 44, 32
  100. 1090 [131] 84, 88, 32, 49, 57, 56, 52, 13, 0
  101. 1100 [131] 75509
  102.